home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64 / 3d-funktion v1.2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 1 poke53280,6:forn=1to4:reada,b:pokea,b:next:dimug(320),og(320):print"[147]@bmon";
  2. 2 print"j@bkngkjh@noo@oechjibg@j@j@ehgehijdjdjdehhejdffgejdffgeefheefeaif@beh";
  3. 3 print"heejdaibhohjejdaibg@jjakgemahc@laige@f@h@d@b@ah@d@b@a@ij@bjjehheij@@h";
  4. 4 print"jehgeaigehh@mkofnhejl@mfobjd@fhheij@aaigehh@mkofnhejl@mfo@fij@@ldbjdo"
  5. 5 a=49152:p=a:c=255:forb=1024to1234step2:pokea,peek(b)+peek(b+1)*16:a=a+1:next
  6. 6 t$=chr$(14)+"[147] 3[196]-[198]unktion [214]1.2  von [210].[198].[211]trey (1992) ":printt$:poke53281,1
  7. 7 gosub17:input" [204][146]aden [194][146]erechnen [197][146]nde ";a$:ifa$<>"l"anda$<>"b"thenlist19
  8. 8 ifa$="l"theninput" [206]ame ";f$:gosub18:sys57812f$,8,1:sys49253:wait198,1:goto6
  9. 9 f$="":printt$:input" [216]-[194]ereich (a,e) ";xa,xe:input" [217]-[194]ereich (a,e) ";ya,ye
  10. 10 input" [211]chrittweite    ";s:s=int(s):if(xa-xe)*(ya-ye)=0ors<1ors>20then9
  11. 11 sy=(ye-ya)/100:gosub18:sx=(xe-xa)/200:forb=0to320:og(b)=200:ug(b)=-1:next
  12. 12 forh=0to100steps:y=ya+h*sy:forb=0to200steps:x=xa+b*sx:bp=10+b+h:gosub19
  13. 13 hp=150-h-int(z):ifhp<og(bp)thenog(bp)=hp:ifhp>=0thensys49152,bp,hp:data193,0
  14. 14 ifhp>ug(bp)thenug(bp)=hp:ifhp<200thensys49152,bp,hp:data194,32,174,64,175,63
  15. 15 next:next:wait631,255:gosub17:printt$:input" [194]ildname ";f$:iff$=""then6
  16. 16 print" [199]rafik (ab $2000) wird gespeichert...":sys57812f$,8,1:sys62957:goto6
  17. 17 poke53265,peek(53265)and223:poke53280,6:poke53272,peek(53272)and247:return
  18. 18 x=53265:y=x+7:pokex,peek(x)or32:pokey,peek(y)or8:poke53280,0:sysp,0,c:return
  19. 19 z=cos(50-abs(x*y))*45
  20. 20 return:rem                                 funktion in zeile 19 eintragen
  21.